home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / miniterm.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  835 b   |  30 lines
  1. 10   REM Ein kleines VT-52 Terminal
  2. 20   USING$,-16:USING 0,1
  3. 30   WHILE
  4. 40     CLS:PRINT 'Über welche Schnittstelle':PRINT 'wollen Sie arbeiten?':PRINT
  5. 50     PRINT 'MIDI',0
  6. 60     PRINT 'AUX',1
  7. 70     PRINT 'Modem 1',2
  8. 80     PRINT 'Modem 2',3
  9. 90     PRINT 'Seriell 1',4
  10. 100    PRINT 'Seriell 2',5
  11. 110    PRINT
  12. 120    INPUT a
  13. 130  WEND a>=0 AND a<=5
  14. 140  DIM dev$(5):dev$(0)='MIDI':dev$(1)='AUX':dev$(2)='MOD1'
  15. 150  dev$(3)='MOD2':dev$(4)='SER1':dev$(5)='SER2'
  16. 160  USING$
  17. 170  WHILE
  18. 180    WHILE
  19. 190      key=ASC INKEY$:in=INBYTE dev$(a)
  20. 200    WEND key<>0 OR in>=0
  21. 210    IF key=27 OR in=27 THEN END
  22. 220    IF key=0 THEN 260
  23. 230    WHILE OUTBYTE dev$(a),key<>0:WEND
  24. 240    IF key=13 THEN key=10
  25. 250    PRINT CHR$ key;
  26. 260    IF in<=0 THEN 290
  27. 270    IF in=13 THEN in=10
  28. 280    PRINT CHR$ in;
  29. 290  WEND
  30.